home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / programming / amos / kryjeldemo / amgif.amos / amgif.amosSourceCode
AMOS Source Code  |  1997-12-01  |  736b  |  27 lines
  1. Screen Open 0,640,200,16,Hires : Flash Off : Hide 
  2. Curs Off : Cls 0 : Paper 0 : Pen 6
  3. Wait Vbl 
  4.  
  5. Print "I will AMGIF process an animation list called X.pic.???? .."
  6. Print "I am looking for a series of single 64 color pics in Ram:"
  7. Print "The pics should be of the form :    X.pic.0001"
  8. Print "                                    X.pic.0002"
  9. Print "                                    etc.."
  10. Print "Use paint software like Brilliance to save single frames to Ram: as X.pic"
  11. Wait 200
  12. T=0
  13. Dir$="Ram:"
  14. If Exist("X.pic.0001") Then Goto MAIN
  15. Print "No X.pic.0001 in Ram!"
  16. Wait 100
  17. End 
  18.  
  19. MAIN
  20. T=T+1
  21. FILE$=Dir First$("X.pic.*")
  22. ROUND
  23. Exec "amgif";FILE$;T
  24. FILE$=Dir Next$
  25. If FILE$="" Then End 
  26. Print "Processing file ";FILE$;" now..."
  27. Goto ROUND